home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
363
/
xlisp20
/
xlisplsp
/
fib.lsp
next >
Wrap
Text File
|
1990-02-03
|
128b
|
4 lines
(defun fib (x)
(cond ((< x 2) 1)
(t (+ (fib (1- x)) (fib (- x 2))))))
))əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə